10 POKE53280,12:POKE53281,12:POKE646,1:PRINT"[147] STARTADRESSE ERMITTELN "
20 F$="":INPUT"FILE-NAME ";F$:IFF$=""THEN90
30 OPEN1,8,2,"0:"+F$+",P,R"
40 GET#1,A$,B$:D=ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0)):CLOSE1
50 PRINT"START-ADRESSE    (DEZ) "D
60 H$="":M=4096:N=3:IFD<256THENM=16:N=1
70 FORH=0TON:C=INT(D/M):D=D-C*M:M=M/16:C=C+48:IFC>57THENC=C+7
80 H$=H$+CHR$(C):NEXT:PRINTTAB(17)"(HEX) $"H$
90 PRINT" HIGH- / LOW-BYTE-BERECHNUNG ":PRINT"EINGABE HEX.: $[FFFF]"
100 EG$="":INPUT"";EG$:IFEG$=""THENEND
110 HE=1:IFLEFT$(EG$,1)<>"$"THENA=VAL(EG$):HE=0:GOTO170
120 H$=RIGHT$(EG$,LEN(EG$)-1):L=LEN(H$):IFL>4THEN100
130 A=0:FORQ=LTO1STEP-1:C$=MID$(H$,Q,1)
140 IFASC(C$)>47ANDASC(C$)<58THENR=ASC(C$)-48:GOTO160
150 R=ASC(C$)-55
160 A=A+R*16^(L-Q):NEXT:D$=STR$(A):D1$=RIGHT$(D$,LEN(D$)-1):PRINT"  #"D1$
170 IFA<256THEN100
180 HI=INT(A/256):LO=A-HI*256:PRINT"HIGH-BYTE :";HI:HB$=CHR$(HI)
190 PRINT"LOW-BYTE  :";LO:LB$=CHR$(LO)
200 POKE198,0:WAIT198,1:POKE198,0:PRINT"[147]";
210 DIMB$(25)
220 FORX=1TO22STEP3:B$(X)="TIGER-DISK":NEXT
230 FORX=2TO23STEP3:B$(X)="BY TIGERCREW":NEXT
240 FORX=3TO24STEP3:B$(X)="MONATLICH NEU!!":NEXT
250 FORA1=1TO24:PRINTB$(A1):NEXT:A1=A1-1
260 POKE198,0:WAIT198,1:POKE198,0:PRINT"[147]"
270 F1$="":INPUT"FILE-NAME ";F1$:IFF1$=""THENEND
280 PRINT"HI-BYTE","LOW-BYTE"," DEZ.",:IFHE=1THENPRINT"HEX."
290 PRINT:PRINTHI,LO,A,:IFHE=1THENPRINTEG$
300 OPEN2,8,2,F1$+",P,W"
310 PRINT#2,LB$;HB$;
320 FORW=1TOA1:PRINT#2,B$(W):NEXT:CLOSE2:PRINT:PRINT"TASTE DRUECKEN!"
330 POKE198,0:WAIT198,1:POKE198,0:RUN